home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 April / Disc 2 / PCUSER0402D2.iso / software / utils / files / wincron.exe / data1.cab / Sample_Scripts / string_basic_test.tg < prev    next >
Encoding:
Text File  |  2001-10-20  |  3.4 KB  |  148 lines

  1.  
  2. #Left(5) == 'Hello' 
  3. #Right(5) == 'orld!' 
  4. #Mid(5) == ' world!' 
  5. #Mid(5 2) == ' w' 
  6. #Len() == 12
  7.  
  8. {
  9.     -start
  10.     -stop
  11.     -name string_basic_test
  12.  
  13.     # TEST STRING
  14.     -action -set string="Hello world!"
  15.  
  16. # BASICS
  17.  
  18.     # LEN
  19.     -action -str Len result "%string%"
  20.     -action -print Len() == %result%
  21.  
  22.     # ISEMPTY
  23.     -action -str IsEmpty result "%string%"
  24.     -action -print IsEmpty() == %result%
  25.     
  26.     # GETAT
  27.     -action -str GetAt result "%string%" 2
  28.     -action -print GetAt(2) == %result%
  29.  
  30.     # SETAT
  31.     -action -str SetAt result "%string%" 2 X
  32.     -action -print SetAt(2,X) == %result%
  33.  
  34. # COMPARISON 
  35.  
  36.     # COMPARE
  37.     -action -str Compare result "1" "0"
  38.     -action -print Compare(1,0) == %result%
  39.  
  40.     # COMPARE    
  41.     -action -str Compare result "1" "1"
  42.     -action -print Compare(1,1) == %result%
  43.  
  44.     # COMPARE
  45.     -action -str Compare result "0" "1"
  46.     -action -print Compare(0,1) == %result%
  47.  
  48.     # COMPARE
  49.     -action -str Compare result "X" "x"
  50.     -action -print Compare(X,x) == %result%
  51.  
  52.     # COMPARE
  53.     -action -str Compare result "X" "x" 1
  54.     -action -print Compare(X,x,1) == %result%
  55.  
  56. # EXTRACTION
  57.  
  58.     # LEFT    
  59.     -action -str left result "%string%" 5
  60.     -action -print Left(5) == '%result%'
  61.  
  62.     # RIGHT
  63.     -action -str Right result "%string%" 5
  64.     -action -print Right(5) == '%result%'
  65.  
  66.     # MID
  67.     -action -str Mid result "%string%" 5
  68.     -action -print Mid(5) == '%result%'
  69.  
  70.     # MID
  71.     -action -str Mid result "%string%" 5 2
  72.     -action -print Mid(5,2) == '%result%'
  73.  
  74.     # SPANINCLUDING
  75.     -action -str SpanIncluding result "%string%" "oleH"
  76.     -action -print SpanIncluding(oleh) == '%result%'
  77.  
  78.     # SPANEXCLUDING
  79.     -action -str SpanExcluding result "%string%" "dlroW"
  80.     -action -print SpanExcluding(dlrow) == '%result%'
  81.  
  82. # CONVERSIONS
  83.  
  84.     # MAKEUPPER
  85.     -action -str MakeUpper result "%string%"
  86.     -action -print MakeUpper() == '%result%'
  87.  
  88.     # MAKELOWER
  89.     -action -str MakeLower result "%string%"
  90.     -action -print MakeLower() == '%result%'
  91.  
  92.     # MAKEREVERSE
  93.     -action -str MakeReverse result "%string%"
  94.     -action -print MakeReverse() == '%result%'
  95.  
  96.     # REPLACE
  97.     -action -str Replace result "%string%" "Hello" "Goodbye"
  98.     -action -print Replace() == '%result%'
  99.  
  100.  
  101.     # INSERT
  102.     -action -str Insert result "%string%" 6 "cruel "
  103.     -action -print Insert(6 "cruel ") == '%result%'
  104.  
  105.     # DELETE
  106.     -action -str Delete result "%string%" 5 6
  107.     -action -print Delete(5 6) == '%result%'
  108.  
  109.     # TRIMLEFT - no white space, so no change
  110.     -action -str TrimLeft result "%string%" 
  111.     -action -print TrimLeft() == '%result%'
  112.  
  113.     # TRIMLEFT
  114.     -action -str TrimLeft result "%string%" "Hello "
  115.     -action -print TrimLeft(Hello ) == '%result%'
  116.  
  117.     # TRIMRIGHT
  118.     -action -str TrimRight result "%string%" "!"
  119.     -action -print TrimRight(!) == '%result%'
  120.  
  121.     # FIND
  122.     -action -str Find result "%string%" "ell"
  123.     -action -print Find(ell) == '%result%'
  124.  
  125.     # REVERSEFIND
  126.     -action -str ReverseFind result "%string%" "o"
  127.     -action -print ReverseFind(o) == '%result%'
  128.  
  129.     # FINDONEOF
  130.     -action -str FindOneOf result "%string%" "o"
  131.     -action -print FindOneOf(o) == '%result%'
  132.  
  133. # FILE PATH FUNCTIONS
  134.  
  135.     # MAKEPATH
  136.     -action -str MakePath result "C" "\foo\blat\snarf" "program" "exe"
  137.     -action -print MakePath("C" "\foo\blat\snarf" "program" "exe") == '%result%'    
  138.  
  139.     # SPLITPATH
  140.     -action -str SplitPath "c:\foo\blat\snarf\program.exe" drive path fname ext
  141.     -action -print SplitPath("c:\foo\blat\snarf\program.exe") == '%drive%' '%path%' '%fname%' '%ext%'
  142.  
  143.     # FULLPATH
  144.     -action -str FullPath result "."
  145.     -action -print FullPath(.) == '%result%'
  146. }
  147.  
  148.